Sub logica()
    Dim a, b, c, d As Integer
    a = 15: b = 7: c = 20: d = 10
    If a > b Xor d > c Then
        Debug.Print "Verdadero."
    Else
        Debug.Print "Falso."
    End If
End Sub
